10 '*** OISAC 2 *** CALCJMP ***
20 INPUT"CALC$ : ",I$
30 CALC$=I$
40 CALCJMP
50 BEEP:BEEP:BEEP